home *** CD-ROM | disk | FTP | other *** search
/ PC Open 93 / PC Open 93 CD 2.bin / PDF / webdeveloper / lezione_2 / menu.asp < prev    next >
Encoding:
Text File  |  2003-10-18  |  1.2 KB  |  55 lines
  1. <%Option Explicit%><%
  2.     Dim numVisite
  3.     Dim strMessaggio
  4.     
  5.     numVisite = request.cookies("numerovisite")
  6.  
  7.    if numVisite = "" then 
  8.         numVisite = 1
  9.         strMessaggio = "Benvenuto nel sito di Mario Rossi. Grazie per la tua visita!"
  10.    else 
  11.         numVisite = numVisite + 1
  12.         strMessaggio = "Bentornato nel sito di Mario Rossi. Questa Φ la "  & numVisite & " volta che visiti questa pagina!"
  13.     end if 
  14.     
  15.     response.cookies("numerovisite") = numVisite
  16.     response.cookies("numerovisite").Expires = #12/31/2004#
  17. %>
  18.  
  19. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
  20.  
  21. <html>
  22. <head>
  23.     <title>Il sito di Mario Rossi</title>
  24. </head>
  25.  
  26. <body>
  27.  
  28.  
  29. <table width="100%" border="1" cellpadding="0" cellpadding="2">
  30. <tr>
  31.     <td width="100">
  32.     <table width="100">
  33.         <tr>
  34.             <td><h3>Men∙</h3></td>
  35.         </tr>
  36.         <tr>
  37.             <td><a href="home.asp">Home</a></td>
  38.         </tr>
  39.         <tr>
  40.             <td><a href="foto.asp?sezione=foto">Foto</a></td>
  41.         </tr>
  42.         <tr>
  43.             <td><a href="scrivimi.asp?sezione=scrivimi">Scrivimi</a></td>
  44.         </tr>
  45.     </table>
  46.     </td>
  47.     <td>
  48. <div align="center"><%=strMessaggio%></div>
  49. </td>
  50. </tr>
  51. </table>
  52.  
  53. </body>
  54. </html>
  55.